The Mac 13/the-mac-13.iso/On The Rom/100 Best Mac CD-ROMs Selection/UNZIP-DEMO/ZIPFILES/shared.Dir/00884.ls

Text File | 1995-06-15 | 1.6 KB | 54 lines

on volguy
  puppetSound("ahloop")
  set ev to the locV of sprite 38
  set eh to the locH of sprite 38
  set mv to the locV of sprite 37
  set mh to the locH of sprite 37
  set sl to 4
  set the soundLevel to sl
  set kk to the mouseV
  repeat while the mouseDown
    set the locV of sprite 38 to the mouseV
    if the mouseV > (ev + 20) then
      set the locV of sprite 38 to ev + 12
      set the locH of sprite 38 to eh - 4
      set the locV of sprite 37 to mv + 5
      set the locH of sprite 37 to mh + 1
      set the volume of sound 1 to 72
      set sl to 2
      set the castNum of sprite 38 to 974
      updateStage()
    end if
    if the mouseV < (ev - 20) then
      set the locV of sprite 38 to ev - 12
      set the locH of sprite 38 to eh + 5
      set the locV of sprite 37 to mv + 15
      set the locH of sprite 37 to mh + 2
      set the volume of sound 1 to 255
      set sl to 7
      set the castNum of sprite 38 to 972
      updateStage()
    end if
    if the mouseV < (ev + 19) then
      if the mouseV > (ev - 19) then
        set the locV of sprite 38 to ev
        set the locH of sprite 38 to eh
        set the locV of sprite 37 to mv + 10
        set the locH of sprite 37 to mh + 2
        set the volume of sound 1 to 145
        set sl to 4
        set the castNum of sprite 38 to 973
        updateStage()
      end if
    end if
  end repeat
  puppetSound(0)
  set the soundLevel to sl
  set the locV of sprite 38 to ev
  set the locH of sprite 38 to eh
  set the locV of sprite 37 to mv
  set the locH of sprite 37 to mh
  set the castNum of sprite 38 to 973
  updateStage()
end